10000 REM *****************************
10010 REM * LITE MENUS! O/S VERSION 1 *
10020 REM *        CREATED BY         *
10030 REM *  MADHU SURENDRANATH (16)  *
10040 REM *  (C) COPYRIGHT JAN. 1991  *
10050 REM *****************************
10060 IF X=0 OR Y=0 OR CH=0 THEN PRINT"?UNDEFINED PARAMETERS  ERROR":STOP
10070 IF CH=1 THEN C$(1)="[166]":C$(2)="[166]":C$(3)="[166]":C$(4)="[166]":C$(5)="[166]":C$(6)="[166]"
10080 IF CH=2 THEN C$(1)="[176]":C$(2)="[195]":C$(3)="[174]":C$(4)="[194]":C$(5)="[173]":C$(6)="[189]"
10090 IF CH=3 THEN C$(1)="[213]":C$(2)="[195]":C$(3)="[201]":C$(4)="[194]":C$(5)="[202]":C$(6)="[203]"
10100 OC=PEEK(646):POKE 646,COL
10110 POKE 781,Y:POKE782,X:SYS 65520
10120 PRINT C$(1);:FOR A=1 TO X1-2
10130 PRINT C$(2);:NEXT:PRINT C$(3)
10140 FOR A=1 TO Y1-2
10150 PRINT TAB(X) C$(4) TAB(X+X1-1) C$(4)
10160 NEXT A
10170 PRINT TAB(X) C$(5);:FOR A=1 TO X1-2
10180 PRINT C$(2);:NEXT:PRINT C$(6)
10190 POKE 646,OC
10200 RETURN
11000 REM ** FLASH/MENU **
11010 IF X=0 OR Y=0 OR O$(1)="" THEN PRINT"?UNDEFINED PARAMETERS  ERROR":STOP
11020 Y=PS+A
11030 POKE 781,Y:POKE 782,TA:SYS65520
11040 POKE 199,1:PRINT O$(A);:POKE199,0
11050 GET A$:IFA$<>""ANDA$<>"[145]"ANDA$<>CHR$(13)THEN11050
11060 IFA$=""THEN B=A:A=A+1:GOTO11090
11070 IFA$="[145]"THEN B=A:A=A-1:GOTO11110
11080 IFA$=CHR$(13) THEN ZZ=Y:GOTO11130
11090 IFB=MAX THENA=MIN:POKE781,Y:POKE782,TA:SYS65520:PRINTO$(B):B=MIN:GOTO11020
11100 IFB<>MAX THEN POKE781,PS+B:POKE782,TA:SYS65520:PRINTO$(B):GOTO11020
11110 IFB=MIN THENA=MAX:POKE781,Y:POKE782,TA:SYS65520:PRINTO$(B):B=MAX:GOTO11020
11120 IFB<>MIN THEN POKE781,PS+B:POKE782,TA:SYS65520:PRINTO$(B):GOTO11020
11130 Y=ZZ:FORL=1 TO 4
11140 POKE 646,11:GOSUB11190
11150 POKE 646,12:GOSUB11190
11160 POKE 646,15:GOSUB11190
11170 NEXT L
11180 RETURN
11190 PRINT"":FORG=1TO(ZZ-1):PRINT"";:NEXTG:PRINTTAB(TA);
11200 POKE199,1:PRINTO$(A):POKE199,0:FORQ=1TO10:NEXTQ
11210 RETURN
12000 REM ** PRINT AT **
12010 IF X=0 OR Y=0 THEN PRINT"?UNDEFINED PARAMETERS  ERROR":STOP
12020 POKE 781,Y:POKE 782,X:SYS 65520
12030 RETURN